/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.08 Aug 86.sit / 02.08 Aug 86 / basic / SAMPLE PROGRAMS / PCMacBASIC / PCMacDEMOsrc

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 50 43 4d 61 63 44 | 45 4d 4f 73 72 63 00 00 |..PCMacD|EMOsrc..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 03 e0 00 | 00 01 5c 9b 23 56 7b 9b |........|..\.#V{.|
|00000060| 23 56 7b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |#V{.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 db f7 00 00 |........|........|
|00000080| 31 20 20 20 20 52 45 4d | 20 4d 65 6e 75 2f 57 69 |1    REM| Menu/Wi|
|00000090| 6e 64 6f 77 20 44 65 6d | 6f 0d 20 20 20 20 20 52 |ndow Dem|o.     R|
|000000a0| 45 4d 20 50 43 4d 61 63 | 42 41 53 49 43 20 76 65 |EM PCMac|BASIC ve|
|000000b0| 72 73 69 6f 6e 0d 20 20 | 20 20 20 52 45 4d 20 62 |rsion.  |   REM b|
|000000c0| 79 20 44 61 76 65 20 4b | 65 6c 6c 79 0d 20 20 20 |y Dave K|elly.   |
|000000d0| 20 20 52 45 4d 20 31 39 | 38 36 20 4d 61 63 54 75 |  REM 19|86 MacTu|
|000000e0| 74 6f 72 0d 31 30 20 20 | 20 52 45 4d 20 49 66 20 |tor.10  | REM If |
|000000f0| 53 61 6d 70 6c 65 20 4d | 65 6e 75 20 69 73 20 73 |Sample M|enu is s|
|00000100| 65 6c 65 63 74 65 64 20 | 20 0d 20 20 20 20 20 4b |elected | .     K|
|00000110| 45 59 28 31 29 20 4f 4e | 20 3a 20 4f 4e 20 4b 45 |EY(1) ON| : ON KE|
|00000120| 59 28 31 29 20 47 4f 53 | 55 42 20 33 30 30 31 0d |Y(1) GOS|UB 3001.|
|00000130| 20 20 20 20 20 4b 45 59 | 28 32 29 20 4f 4e 20 3a |     KEY|(2) ON :|
|00000140| 20 4f 4e 20 4b 45 59 28 | 32 29 20 47 4f 53 55 42 | ON KEY(|2) GOSUB|
|00000150| 20 33 30 30 32 0d 20 20 | 20 20 20 4b 45 59 28 33 | 3002.  |   KEY(3|
|00000160| 29 20 4f 4e 20 3a 20 4f | 4e 20 4b 45 59 28 33 29 |) ON : O|N KEY(3)|
|00000170| 20 47 4f 53 55 42 20 33 | 30 30 33 0d 32 30 20 20 | GOSUB 3|003.20  |
|00000180| 20 47 4f 53 55 42 20 32 | 30 30 30 0d 20 20 20 20 | GOSUB 2|000.    |
|00000190| 20 46 49 4c 45 53 20 4d | 45 4e 55 20 4f 4e 20 20 | FILES M|ENU ON  |
|000001a0| 3a 20 4f 4e 20 46 49 4c | 45 53 20 4d 45 4e 55 20 |: ON FIL|ES MENU |
|000001b0| 47 4f 53 55 42 20 31 31 | 30 30 20 20 3a 52 45 4d |GOSUB 11|00  :REM|
|000001c0| 20 49 46 20 46 69 6c 65 | 20 4d 65 6e 75 20 69 73 | IF File| Menu is|
|000001d0| 20 73 65 6c 65 63 74 65 | 64 0d 20 20 20 20 20 45 | selecte|d.     E|
|000001e0| 44 49 54 20 20 4d 45 4e | 55 20 4f 4e 20 20 3a 20 |DIT  MEN|U ON  : |
|000001f0| 4f 4e 20 45 44 49 54 20 | 20 4d 45 4e 55 20 47 4f |ON EDIT | MENU GO|
|00000200| 53 55 42 20 31 32 30 30 | 20 20 3a 52 45 4d 20 49 |SUB 1200|  :REM I|
|00000210| 46 20 45 64 69 74 20 4d | 65 6e 75 20 69 73 20 73 |F Edit M|enu is s|
|00000220| 65 6c 65 63 74 65 64 0d | 20 20 20 20 20 4f 4e 20 |elected.|     ON |
|00000230| 57 49 4e 44 4f 57 20 47 | 4f 53 55 42 20 32 30 30 |WINDOW G|OSUB 200|
|00000240| 30 0d 35 30 20 20 20 52 | 45 4d 20 49 6e 66 69 6e |0.50   R|EM Infin|
|00000250| 69 74 65 20 4c 6f 6f 70 | 0d 20 20 20 20 20 47 4f |ite Loop|.     GO|
|00000260| 54 4f 20 35 30 0d 31 31 | 30 30 20 6d 65 6e 75 69 |TO 50.11|00 menui|
|00000270| 74 65 6d 25 3d 46 49 4c | 45 53 28 30 29 0d 20 20 |tem%=FIL|ES(0).  |
|00000280| 20 20 20 49 46 20 6d 65 | 6e 75 69 74 65 6d 25 3d |   IF me|nuitem%=|
|00000290| 31 20 54 48 45 4e 20 34 | 30 30 30 20 3a 52 45 4d |1 THEN 4|000 :REM|
|000002a0| 20 51 75 69 74 20 77 61 | 73 20 73 65 6c 65 63 74 | Quit wa|s select|
|000002b0| 65 64 0d 20 20 20 20 20 | 52 45 54 55 52 4e 0d 31 |ed.     |RETURN.1|
|000002c0| 32 30 30 20 52 45 4d 20 | 54 68 69 73 20 69 73 20 |200 REM |This is |
|000002d0| 74 68 65 20 45 64 69 74 | 20 6d 65 6e 75 0d 20 20 |the Edit| menu.  |
|000002e0| 20 20 20 52 45 4d 20 75 | 73 65 20 69 74 20 66 6f |   REM u|se it fo|
|000002f0| 72 20 44 41 27 73 20 6f | 6e 6c 79 0d 20 20 20 20 |r DA's o|nly.    |
|00000300| 20 52 45 54 55 52 4e 0d | 32 30 30 30 20 43 4c 53 | RETURN.|2000 CLS|
|00000310| 0d 20 20 20 20 20 53 43 | 52 45 45 4e 20 23 22 4e |.     SC|REEN #"N|
|00000320| 65 77 20 59 6f 72 6b 22 | 2c 31 32 0d 20 20 20 20 |ew York"|,12.    |
|00000330| 20 43 4f 4c 4f 52 20 31 | 30 2c 30 0d 20 20 20 20 | COLOR 1|0,0.    |
|00000340| 20 50 52 49 4e 54 20 22 | 4d 61 63 54 75 74 6f 72 | PRINT "|MacTutor|
|00000350| 20 73 68 6f 77 73 20 79 | 6f 75 20 68 6f 77 20 69 | shows y|ou how i|
|00000360| 74 20 77 6f 72 6b 73 21 | 22 0d 20 20 20 20 20 43 |t works!|".     C|
|00000370| 4f 4c 4f 52 20 32 2c 30 | 0d 20 20 20 20 20 4c 4f |OLOR 2,0|.     LO|
|00000380| 43 41 54 45 20 35 2c 31 | 3a 50 52 49 4e 54 22 50 |CATE 5,1|:PRINT"P|
|00000390| 43 4d 61 63 42 41 53 49 | 43 20 56 65 72 73 69 6f |CMacBASI|C Versio|
|000003a0| 6e 20 31 2e 36 30 20 64 | 65 6d 6f 22 0d 20 20 20 |n 1.60 d|emo".   |
|000003b0| 20 20 52 45 54 55 52 4e | 0d 33 30 30 31 20 6d 65 |  RETURN|.3001 me|
|000003c0| 6e 75 69 74 65 6d 25 3d | 31 3a 47 4f 54 4f 20 33 |nuitem%=|1:GOTO 3|
|000003d0| 30 31 30 0d 33 30 30 32 | 20 6d 65 6e 75 69 74 65 |010.3002| menuite|
|000003e0| 6d 25 3d 32 3a 47 4f 54 | 4f 20 33 30 31 30 0d 33 |m%=2:GOT|O 3010.3|
|000003f0| 30 30 33 20 6d 65 6e 75 | 69 74 65 6d 25 3d 33 3a |003 menu|item%=3:|
|00000400| 47 4f 54 4f 20 33 30 31 | 30 0d 33 30 31 30 20 4c |GOTO 301|0.3010 L|
|00000410| 4f 43 41 54 45 20 33 2c | 31 0d 20 20 20 20 20 50 |OCATE 3,|1.     P|
|00000420| 52 49 4e 54 22 59 6f 75 | 20 68 61 76 65 20 73 65 |RINT"You| have se|
|00000430| 6c 65 63 74 65 64 20 6d | 65 6e 75 20 69 74 65 6d |lected m|enu item|
|00000440| 22 3b 6d 65 6e 75 69 74 | 65 6d 25 0d 20 20 20 20 |";menuit|em%.    |
|00000450| 20 52 45 54 55 52 4e 0d | 34 30 30 30 20 45 4e 44 | RETURN.|4000 END|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000490| 78 13 20 6a 00 9c 20 50 | 30 10 b0 44 67 1e 78 0d |x. j.. P|0..Dg.x.|
|000004a0| 00 03 00 0c 08 03 00 14 | 67 06 36 3c 50 0c 60 0c |........|g.6<P.`.|
|000004b0| 0c 50 43 4d 61 63 44 45 | 4d 4f 73 72 63 45 02 00 |.PCMacDE|MOsrcE..|
|000004c0| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 00 00 |..TEXTED|IT......|
|000004d0| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 00 00 |..TEXTED|IT......|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 9b 22 ee d3 00 00 | 03 e0 00 00 01 5c ff d6 |..."....|.....\..|
|00000500| 10 28 ff fd 0c 00 00 08 | 64 00 00 08 41 ee fd 72 |.(......|d...A..r|
|00000510| a0 17 4e 75 66 04 53 6e | ff da 20 6e ff d6 4a 28 |..Nuf.Sn|.. n..J(|
|00000520| ff fc 6b 00 00 d2 26 3c | 00 00 18 00 61 00 01 4e |..k...&<|....a..N|
|00000530| 41 ee fd 72 a0 0e 61 00 | 01 d8 66 00 00 d0 61 00 |A..r..a.|..f...a.|
|00000540| 02 06 66 00 00 c8 4a 05 | 66 46 26 3c 00 00 04 50 |..f...J.|fF&<...P|
|00000550| 61 00 01 2a 2f 0a 3f 3c | 00 06 42 67 3f 3c 00 64 |a..*/.?<|..Bg?<.d|
|00000560| a9 7e 41 fa 00 d2 61 86 | 59 40 66 f6 2f 0a 3f 3c |.~A...a.|Y@f./.?<|
|00000570| 00 06 48 6e ff ea 48 6e | ff ec 48 6e ff f0 a9 8d |..Hn..Hn|..Hn....|
|00000580| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f ff 00 00 |.......M|onaco...|
|00000590| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|000005a0| 00 16 00 00 00 46 00 00 | cc 24 03 ae 00 00 00 1c |.....F..|.$......|
|000005b0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|000005c0| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 00 d7 24 |........|.......$|
|000005d0| 03 ec ff ff 00 00 00 0e | 00 00 d7 2c 00 00 00 00 |........|...,....|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+